Business Assistant/Business Assistant.iso/indus/auto_inv/inv_0650.prg

Text File | 1991-08-07 | 5KB | 176 lines

*--------------------------------------------------------------------------
* Program KEV_0650 - Reset flags and clear file Kevins Subaru Invoicing
*                       (c) 1989 Systematics Consulting, Inc.
*--------------------------------------------------------------------------

SET TALK OFF
SET ECHO OFF
SET STATUS OFF
CLOSE ALL
ANSWER = " "
SELECT 1
USE KEV_MSTR INDEX KEV_IDX1
SELECT 2
USE KEV_LBOR INDEX KEV_IDX2
SELECT 3
USE KEV_PART INDEX KEV_IDX3
CLEAR
SELECT 1

   @ 24, 10 SAY  "Systematics Consulting, Inc. [phone] - Program KEV_0650"
   @ 1,  1 SAY  DATE()
   @ 1, 71 SAY  TIME()
   @ 2,  5 TO  5,75 DOUBLE
   @ 3, 15 SAY  "             KEVIN'S  SUBARU                 "
   @ 4, 15 SAY  "           Reset Printed flags               "

 ANSWER = "N"
   INV_IN = 0
   @  8, 1
   @  8, 12  SAY "RESET INVOICE PRINTED FLAG (Y/N)? " GET ANSWER
   @  7, 5 TO 9, 75
   READ

IF UPPER(ANSWER) = "Y"
      ANSWER = " "
        @  8, 12  SAY "ENTER 1 TO LOCATE BY INVOICE NUMBER, 2 TO LOCATE BY NAME:" GET ANSWER
        @  7, 5 TO 9, 75
        READ
        @  8, 1

            IF ANSWER = "1"
                INV_IN = 0
                @  8, 1
                @  8, 12  SAY "ENTER INVOICE NUMBER TO LOCATE:" GET INV_IN  PICTURE "#####"
                @  7, 5 TO 9, 75
                READ
                LOCATE FOR INV_NO = INV_IN
                    IF EOF()
                    ANSWER = " "
                    @ 8, 12  SAY "REQUESTED RECORD NOT FOUND, PRESS ANY KEY...." GET ANSWER
                    CLOSE ALL
                    READ
                    RETURN TO MASTER
                    ENDIF
            ENDIF

            IF ANSWER = "2"
                NAME_IN = SPACE(30)
                @  8, 1
                @  8, 12  SAY "ENTER LAST NAME TO LOCATE:" GET NAME_IN
                @  7, 5 TO 9, 75
                READ
                LOCATE FOR UPPER(LASTNAME) = UPPER(NAME_IN)
                    IF EOF()
                    ANSWER = " "
                    @ 8, 12  SAY "REQUESTED RECORD NOT FOUND, PRESS ANY KEY...." GET ANSWER
                    CLOSE ALL
                    READ
                    RETURN TO MASTER
                    ENDIF
            ENDIF

        NAME = TRIM(FIRSTNAME) + " " + TRIM(LASTNAME)

        @  8, 1
        @  8,  7   SAY "Inv. #"
        @  8, 14   SAY INV_NO PICTURE "#####"
        @  8, 22   SAY NAME
        @  7, 5 TO 9, 75

        ANSWER = "Y"
        @  12, 1
        @  12, 12  SAY "RESET PRINTED FLAG FOR ABOVE NAME? (Y/N):" GET ANSWER
        @  11, 5 TO 13, 75
        READ

           IF UPPER(ANSWER) <> "Y"
                CLOSE ALL
                RETURN TO MASTER
             ENDIF

        @  12, 1
        @  12, 14   SAY "RESETTING FLAG......."
        @  11, 5 TO 13, 75 DOUBLE

        REPLACE KEV_MSTR->PRINTED WITH "Y"

        @  12, 1
        @  12, 14   SAY "******** RECORED PRINTED FLAG RESET *******"
        @  11, 5 TO 13, 75 DOUBLE
  ENDIF

CLEAR

ANSWER = "Y"
   @ 24, 10 SAY  "Systematics Consulting, Inc. [phone] - Program KEV_0650"
   @ 1,  1 SAY  DATE()
   @ 1, 71 SAY  TIME()
   @ 2,  5 TO  5,75 DOUBLE
   @ 3, 15 SAY  "             KEVIN'S  SUBARU                 "
   @ 4, 15 SAY  "          Delete printed Records          "

 ANSWER = "N"
   INV_IN = 0
   @  8, 1
   @  8, 12  SAY "DELETE PRINTED INVOICES (Y/N)? " GET ANSWER
   @  7, 5 TO 9, 75
   READ

           IF UPPER(ANSWER) <> "Y"
                CLOSE ALL
                RETURN TO MASTER
             ENDIF

SELECT 1
GO TOP
LOCATE FOR UPPER(PRINTED) <> "N"

DO WHILE UPPER(PRINTED) <> "N" .AND. .NOT. EOF()

        INVOICE = INV_NO
        NAME = TRIM(FIRSTNAME) + " " + TRIM(LASTNAME)
        @  8, 1
        @  8,  7   SAY "Inv. #"
        @  8, 14   SAY INV_NO PICTURE "#####"
        @  8, 22   SAY NAME
        @  7, 5 TO 9, 75
        DELETE
        SELECT 2
        GO TOP
        DELETE ALL FOR INV_NO = INVOICE
        SELECT 3
        GO TOP
        DELETE ALL FOR INV_NO = INVOICE
        SELECT 1
        SKIP

    ENDDO

SELECT 1
        @  8, 1
        @  8,  7   SAY "CLEAR AND INDEX MASTER FILE"
        @  7, 5 TO 9, 75
PACK
REINDEX
SELECT 2
        @  8, 1
        @  8,  7   SAY "CLEAR AND INDEX LABOR DETAIL FILE"
        @  7, 5 TO 9, 75
PACK
REINDEX
SELECT 3
        @  8, 1
        @  8,  7   SAY "CLEAR AND INDEX PARTS DETAIL FILE"
        @  7, 5 TO 9, 75
PACK
REINDEX
CLOSE ALL

        @  8, 1
        @  8,  7   SAY "*** PROCESS COMPLETE ****"
        @  7, 5 TO 9, 75
RETURN TO MASTER

*---------- END OF PROGRAM ----------------